home *** CD-ROM | disk | FTP | other *** search
- '
- ' Bibliothque procdures de commande MINITEL Mode Mixte
- '
- demo
- > PROCEDURE demo
- m.init
- m.reset
- m.open.work
- m.clear.home
- m.write("Cool, Ligne 1 OK")
- m.write.mode(10,10,"C'est cool",-1,0,0,-1)
- m.left(19)
- m.delete.char(9)
- m.locate(1,2)
- m.delete(8)
- m.close.work
- RETURN
- '
- > PROCEDURE m.init
- ' initialisation du mnt et de la RS232
- ~XBIOS(15,7,0,174,-1,-1)
- PAUSE 4
- OUT 1,12,27,57,127
- RETURN
- > PROCEDURE m.open.work
- ' ouverture de la WorkStation
- OPEN "o",#99,"aux:"
- RETURN
- > PROCEDURE m.close.work
- ' fermeture de la WorkStation
- CLOSE #99
- RETURN
- '
- > PROCEDURE m.reset
- ' reset mode mixte
- OUT 1,27,91,109
- RETURN
- > PROCEDURE m.cls
- ' cls!
- OUT 1,27,91,50,74
- RETURN
- > PROCEDURE m.home
- ' home!
- OUT 1,27,91,72
- RETURN
- > PROCEDURE m.cls.up
- ' efface au dessus et
gauche du curseur
- OUT 1,27,91,49,74
- RETURN
- > PROCEDURE m.cls.down
- ' efface en dessous et
droite du curseur
- OUT 1,27,91,74
- RETURN
- > PROCEDURE m.clear.home
- ' cls+home
- m.cls
- m.home
- RETURN
- > PROCEDURE m.fill
- ' bourrage de ligne
- OUT 1,27,91,75
- RETURN
- > PROCEDURE m.up(x%)
- ' up
- m.write(""+STR$(x%)+"A")
- RETURN
- > PROCEDURE m.down(x%)
- ' down
- m.write(""+STR$(x%)+"B")
- RETURN
- > PROCEDURE m.left(x%)
- ' left
- m.write(""+STR$(x%)+"D")
- RETURN
- > PROCEDURE m.right(x%)
- ' right
- m.write(""+STR$(x%)+"C")
- RETURN
- > PROCEDURE m.line.delete
- ' efface la ligne
- OUT 1,27,91,50,75
- RETURN
- > PROCEDURE m.left.delete
- ' efface
gauche du curseur sur la ligne
- OUT 1,27,91,49,75
- RETURN
- > PROCEDURE m.insert(x%)
- ' insert x% lignes
- m.write(""+STR$(x%)+"L")
- RETURN
- > PROCEDURE m.delete(x%)
- ' delete x% lignes
- m.write(""+STR$(x%)+"M")
- RETURN
- > PROCEDURE m.delete.char(x%)
- ' delete x% caractres
- m.write(""+STR$(x%)+"P")
- RETURN
- '
- > PROCEDURE m.locate(x%,y%)
- ' locate
- m.write(""+STR$(y%)+";"+STR$(x%)+"H")
- RETURN
- > PROCEDURE m.light(flag!)
- ' surlignement
- IF flag!
- OUT 1,27,91,49,109
- ELSE
- OUT 1,27,91,50,50,109
- ENDIF
- RETURN
- > PROCEDURE m.under(flag!)
- ' soulignement
- IF flag!
- OUT 1,27,91,52,109
- ELSE
- OUT 1,27,91,50,52,109
- ENDIF
- RETURN
- > PROCEDURE m.invers(flag!)
- ' invers
- IF flag!
- OUT 1,27,91,55,109
- ELSE
- OUT 1,27,91,50,55,109
- ENDIF
- RETURN
- > PROCEDURE m.flash(flag!)
- ' flash!
- IF flag!
- OUT 1,27,91,53,109
- ELSE
- OUT 1,27,91,50,53,109
- ENDIF
- RETURN
- > PROCEDURE m.write(script$)
- ' ecriture standard
- PRINT #99,script$;
- RETURN
- > PROCEDURE m.write.at(x%,y%,script$)
- ' pos AT+ecriture
- m.locate(x%,y%)
- m.write(script$)
- RETURN
- > PROCEDURE m.write.mode(x%,y%,script$,flg1!,flg2!,flg3!,flg4!)
- ' ecriture+pos+attributs
- m.locate(x%,y%)
- m.light(flg1!)
- m.under(flg2!)
- m.invers(flg3!)
- m.flash(flg4!)
- m.write(script$)
- RETURN
-